Learning Perl

Learning PerlSearch this book
Previous: 7.6 The split and join FunctionsChapter 7
Regular Expressions
Next: 8. Functions
 

7.7 Exercises

See Appendix A, Exercise Answers for answers.

  1. Construct a regular expression that matches:

    1. at least one a followed by any number of b's

    2. any number of backslashes followed by any number of asterisks (any number might be zero)

    3. three consecutive copies of whatever is contained in $whatever

    4. any five characters, including newline

    5. the same word written two or more times in a row (with possibly varying intervening whitespace), where "word" is defined as a nonempty sequence of nonwhitespace characters

    1. Write a program that accepts a list of words on STDIN and looks for a line containing all five vowels (a, e, i, o, and u). Run this program on /usr/dict/words[9] and see what shows up. In other words, enter:

      $ myprogram </usr/dict/words
      (This presumes you name your program myprogram.)

      [9] Your system's dictionary may be somewhere other than /usr/dict/words ; check the spell (1) manpage.

    2. Modify the program so that the five vowels have to be in order and intervening letters don't matter.

    3. Modify the program so that all vowels must be in an increasing order, so all five vowels have to be present, and no "e" can occur before an "a", no "i" can occur before an "e", and so on.

  2. Write a program that looks through /etc/passwd [10] (on STDIN), printing the login name and real name of each user. (Hint: use split to break the line up into fields, then s/// to get rid of the parts of the comment field that are after the first comma.)

    [10] If using NIS, your system may have little data in /etc/passwd. See if ypcat passwd gives more information.

  3. Write a program that looks through /etc/passwd (on STDIN) for two users with the same first name, and prints those names. (Hint: after extracting the first name, create a hash with the name for a key and the number of times it was seen as the value. When the last line of STDIN has been read, look through the associative array for counts of greater than one.)

  4. Repeat the last exercise, but report the login names of all users with the same first name. (Hint: instead of storing a count, store a list of login names separated by spaces. When finished, look through the values for ones that contain a space.)


Previous: 7.6 The split and join FunctionsLearning PerlNext: 8. Functions
7.6 The split and join FunctionsBook Index8. Functions